home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 018 / pcfv2.arc / PCFV2.DEF next >
Encoding:
Text File  |  1988-02-10  |  21.1 KB  |  515 lines
  1. ;This is PCFV2.DEF   Source code for PCFV2.MNU  Version 2.5  February 20,1988
  2. ;
  3. ;                        For use with PC-File+ Version 2.0 <-----
  4. ;                        and the Logitech Logimouse C7
  5. ;
  6. ;                           BY Tom LaChe'
  7. ;                           460 Belvedere East
  8. ;                           Colgate WI. 53017
  9. ;                           414-628-3849
  10. ;                           EXEC-PC 414-964-5160 (Via Modem)
  11. ;╒══════════════════════════════════════════════════════════════════════════╕
  12. ;│  NOTE1: This driver will NOT function properly when used with            │
  13. ;│         PC-File+ Version Number 1.0                                      │
  14. ;│  NOTE2: When you load MENU.COM allocate some extra memory by using this  │
  15. ;│         command. MENU /10 [ENTER]                                        │
  16. ;│         This is necessary because this code is so large, that you will   │
  17. ;│         get an error message if you attempt to recompile it. The default │
  18. ;│         memory allocation is large enough to use my menu but not to      │
  19. ;│         compile and load at the same time.                               │
  20. ;╘══════════════════════════════════════════════════════════════════════════╛
  21. ; You may use and distribute this code. Suggestions and donations are welcome.
  22. ; This source code, when compiled, will produce a mouse menu for almost all
  23. ; the menus in PC-File+. The middle button will either furnish you with the
  24. ; appropriate menu or do nothing. The left button is always F10 and the right
  25. ; button is always ESCAPE. There is a total of 33 menus to assist you.
  26. ; There is also mouse support for PC-LABEL.
  27. ; Jim Button has created a great database program.
  28. ; Now it has mouse support too!
  29. ;
  30. ; If you are unfamiliar with the use of mouse drivers, please read the
  31. ; Logitech manual. After the Logitech software is loaded, load the PCFV2.MNU.
  32. ;   Example: at the dos prompt type
  33. ;           MENU PCFV2 [ENTER]  This loads the PC-File+ mouse menu (PCFV2.MNU)
  34. ;           PCF [ENTER]         This executes PC-File+  (PCF.EXE)
  35. ;
  36. ; After PC-File+ is running and the MAIN MENU is displayed, press the
  37. ; middle button.
  38. ;
  39. BEGIN  LeftB, MiddleB, RightB, LeftM, RightM, UpM, DownM, 70,30
  40.  
  41. ;***** BUTTON ASSIGNMENTS *****
  42. LeftB:   TYPE 0,68     ;F10 Key
  43. MiddleB: EXECUTE MENU0
  44. RightB:  TYPE ESC      ;ESCAPE
  45.  
  46. ;***** MOVE ASSIGNMENTS *****
  47. LeftM:   TYPE 0,75     ;Move Left
  48. RightM:  TYPE 0,77     ;Move Right
  49. UpM:     TYPE 0,72     ;Move Up
  50. DownM:   TYPE 0,80     ;Move Down
  51.  
  52. ;**** MENU SELECTIONS *****           /do\   /do\
  53. ;       Look@ L   C   For string     if yes  if no  What menu to look for
  54. ;----------------------------------------------------------------------------
  55. MENU0:  MATCH 25, 1, ,"Please",     NOTHING, MENU1  ;NO MENU ALLOWED HERE
  56. MENU1:  MATCH 10,29, ,"F4 G",          MAIN, MENU2  ;CHECK FOR MAIN MENU
  57. MENU2:  MATCH 10,26, ,"Simple",      SEARCH, MENU3  ;CHECK FOR SEARCH MENU
  58. MENU3:  MATCH 5, 18, ,"How",          FIND1, MENU4  ;CHECK FOR FIND1 MENU
  59. MENU4:  MATCH 1, 80, ,"F",            FIND2, MENU5  ;CHECK FOR FIND2 MENU
  60. MENU5:  MATCH 25, 1, ,"Use",          FIND3, MENU6  ;CHECK FOR FIND3 MENU
  61. MENU6:  MATCH 24,24, ,"Global",     GLOBAL1, MENU7  ;CHECK FOR GLOBAL1 MENU
  62. MENU7:  MATCH 24,23, ,"All",        GLOBAL2, MENU8  ;CHECK FOR GLOGAL2 MENU
  63. MENU8:  MATCH 3, 38, ,"UTILITIES",  UTILITY, MENU9  ;CHECK FOR UTILITY MENU
  64. MENU9:  MATCH 7, 23, ,"Would you",    SKMOD, MENU10 ;CHECK FOR SKEY MOD MENU
  65. MENU10: MATCH 1, 18, ,"to edit",       SKEY, MENU11 ;CHECK FOR SMART KEY EDIT
  66. MENU11: MATCH 1, 16, ,"SMART KEY",     SKEY, MENU12 ;CHECK FOR SMART KEY MENU
  67. MENU12: MATCH 3, 15, ,"Which",      REPORT1, MENU13 ;CHECK FOR REPORT MENU
  68. MENU13: MATCH 7, 18, ,"dBASE",      EXPORT1, MENU14 ;CHECK FOR EXPORT1 MENU
  69. MENU14: MATCH 12,28, ,"fields",     EXPORT2, MENU15 ;CHECK FOR EXPORT2 MENU
  70. MENU15: MATCH 12,28, ,"records",    EXPORT3, MENU16 ;CHECK FOR EXPORT3 MENU
  71. MENU16: MATCH 6, 18, ,"dBASE",       IMPORT, MENU17 ;CHECK FOR IMPORT MENU
  72. MENU17: MATCH 12,27, ,"Copy,",       MAINT1, MENU18 ;CHECK FOR 1ST MAINT MNU
  73. MENU18: MATCH 6, 25, ,"Database",    MAINT2, MENU19 ;CHECK FOR MAINT. MENUS
  74. MENU19: MATCH 13,35, ,"additions",     EXIT, MENU20 ;CHECK FOR EXIT MENU
  75. MENU20: MATCH 7, 25, ,"Would",     PROFILE1, MENU21 ;CHECK FOR PROFILE MENU
  76. MENU21: MATCH 3, 15, ,"How",         GRAPH1, MENU22 ;CHECK FOR GRAPH1 MENU
  77. MENU22: MATCH 7, 17, ,"Please",      GRAPH2, MENU23 ;CHECK FOR GRAPH2 MENU
  78. MENU23: MATCH 1, 80, ,"g",           GRAPH3, MENU24 ;CHECK FOR GRAPH3 MENU
  79. MENU24: MATCH 11,13, ,"Would you",   GRAPH4, MENU25 ;CHECK FOR GRAPH4 MENU
  80. MENU25: MATCH 5, 20, ,"There",       DEFINE, MENU26 ;CHECK FOR DEFINE MENU
  81. MENU26: MATCH 12,35, ,"delete?",     DELETE, MENU27 ;CHECK FOR DELETE MENU
  82. MENU27: MATCH 11,19, ,"Include",    INCLUDE, MENU28 ;CHECK FOR INCLUDE MENU
  83. MENU28: MATCH 11,18, ,"Change",      NAMASK, MENU29 ;CHECK FOR NAME-MASK MNU
  84. MENU29: MATCH 24,19, ,"Output",     REPORT2, MENU30 ;CHECK FOR REPORT2 MENU
  85. MENU30: MATCH 9, 21, ,"Edit",       REPORT3, MENU31 ;CHECK FOR REPORT EDIT
  86. MENU31: MATCH 2, 30, ,"PRINTER",   PROFILE2, MENU32 ;CHECK FOR PRINTER MENU
  87. MENU32: MATCH 12,17, ,"Are you",   PROFILE3, MENU33 ;CHECK FOR SAVE MENU
  88. MENU33: MATCH 7, 25, ,"PC-LABEL",    LABEL, NOTHING ;CHECK FOR LABEL MENU
  89. ;There is good reason for the secquence of some of the above MATCH searches.
  90. ;IF NONE OF THE ABOVE MATCH WORDS ARE ON THE SCREEN, THEN DO NOTHING WHEN
  91. ;THE MIDDLE MOUSE BUTTON IS PRESSED.
  92. ;--HELP MENU--
  93. HELP: POPUP  3, 10, 14 ;LINE COLUMN COLOR
  94.   TEXT "╔═════════════════════════════════════════════════════════╗"
  95.   TEXT "║  Using The Mouse With PC-File+ Ver.2.0   By Tom LaChe'  ║"
  96.   TEXT "╠═════════════════════════════════════════════════════════╣"
  97.   TEXT "║   THERE ARE A TOTAL OF 33 MENUS TO ASSIST YOU WHILE     ║"
  98.   TEXT "║   PROCESSING DATA USING PC-File+.                       ║"
  99.   TEXT "╠═════════════════════════════════════════════════════════╣"
  100.   TEXT "║ ██   ██ ███████ ████      ████   █████  ██   ██ ███████ ║"
  101.   TEXT "║ ██   ██  ██   █  ██      ██  ██ ██   ██ ███ ███  ██   █ ║"
  102.   TEXT "║ ██   ██  ██ █    ██     ██      ██   ██ ███████  ██ █   ║"
  103.   TEXT "║ ██ █ ██  ████    ██     ██      ██   ██ ███████  ████   ║"
  104.   TEXT "║ ███████  ██ █    ██   █ ██      ██   ██ ██ █ ██  ██ █   ║"
  105.   TEXT "║ ███ ███  ██   █  ██  ██  ██  ██ ██   ██ ██   ██  ██   █ ║"
  106.   TEXT "║ ██   ██ ███████ ███████   ████   █████  ██   ██ ███████ ║"
  107.   TEXT "╠════════════════════════════╕╒═══════════════════════════╣"
  108.   TEXT "║     BUTTON ASSIGNMENTS     ││     MENU SELECTIONS       ║"
  109.   TEXT "╟────────────────────────────┤├───────────────────────────╢"
  110.   TEXT "║   Left Button......F10     ││  The middle button will   ║"
  111.   TEXT "║ Middle Button..MENU SELECT ││  select the appropriate   ║"
  112.   TEXT "║   Right Button..ESCAPE     ││  menu or do nothing.      ║"
  113.   TEXT "║                            ││                           ║"
  114.   TEXT "╚════════════════════════════╧╧═══════════════════════════╝"
  115.           SELECT 2, 3, 55
  116.           PEND
  117. ;--MAIN MENU--
  118. MAIN: MENU , 6, 17, 14    ;LINE COLUMN COLOR
  119.           OPTION "    F1 A    ", A         ;ADD
  120.           OPTION "    F2 F    ", F         ;FIND
  121.           OPTION " DOS COMMAND", DOS       ;DOS COMMAND
  122.           OPTION "    F4 G    ", G         ;GRAPH
  123.           OPTION "    F5 L    ", L         ;LETTER
  124.           OPTION "    F6 R    ", R         ;REPORT
  125.           OPTION "    F7 S    ", S         ;SORT
  126.           OPTION "    F8 U    ", U         ;UTILITY
  127.           OPTION "    F9 M    ", M         ;MENU OF SMART KEYS
  128.           OPTION "LEARN ON/OFF", LRN       ;LEARN
  129.           OPTION "  ALT F8 T  ", T         ;TEACH
  130.           OPTION "  ALT F9 Q  ", Q         ;QUIT
  131.           OPTION "MOUSE HELP"  , HELP      ;MOUSE MENU HELP
  132.           OPTION "    ALT H   ", ALTH      ;HELP
  133.           OPTION "CALCULATOR"  , ALTC      ;CALCULATOR
  134.           MEND
  135. ;--EXIT MENU--
  136. EXIT: POPUP  19, 4, 14  ;LINE COLUMN COLOR
  137.     TEXT " Quit processing, Different file, Resume processing    "
  138.           SELECT 1,  1, 17, END        ;END PC-FILE+
  139.           SELECT 1, 18, 16, D          ;DIFFERENT
  140.           SELECT 1, 34, 19, R          ;RESUME
  141.           PEND
  142. ;--FIND MENU No.1--
  143. FIND1: MENU , 6, 11, 14     ;LINE COLUMN COLOR
  144.          OPTION "   S", S              ;SEARCH
  145.          OPTION
  146.          OPTION "   B", B              ;BEGINNING
  147.          OPTION "   E", E              ;END
  148.          OPTION "   N", N              ;NEXT
  149.          OPTION "   P", P              ;PREVIOUS
  150.          OPTION "   R", R              ;RECORD No.
  151.          OPTION "   +", PLUS           ;BROWSE DOWN
  152.          OPTION "   -", DASH           ;BROWSE UP
  153.          OPTION
  154.          OPTION "   Q", Q              ;QUIT FINDING
  155.          MEND
  156. ;--FIND MENU No.2--
  157. FIND2: POPUP  1, 22, 14  ;LINE COLUMN COLOR
  158.     TEXT " D  M  S  E  B  N  P  R  +  -  Quit Finding "
  159.           SELECT 1,  1, 1,             ;PUT CURSOR IN A SAFE PLACE!
  160.           SELECT 1,  1, 3, D           ;DELETE
  161.           SELECT 1,  4, 3, M           ;MODIFY
  162.           SELECT 1,  7, 3, S           ;SEARCH
  163.           SELECT 1, 10, 3, E           ;END
  164.           SELECT 1, 13, 3, B           ;BEGINNING
  165.           SELECT 1, 16, 3, N           ;NEXT
  166.           SELECT 1, 19, 3, P           ;PREVIOUS
  167.           SELECT 1, 22, 3, R           ;RECORD No.
  168.           SELECT 1, 25, 3, PLUS        ;BROWSE DOWN
  169.           SELECT 1, 28, 3, DASH        ;BROWSE UP
  170.           SELECT 1, 31, 14, Q          ;QUIT FINDING
  171.           PEND
  172. ;--FIND MENU No.3--
  173. FIND3: POPUP  24, 5, 14  ;LINE COLUMN COLOR
  174.     TEXT " S  E  B  N  P  R  +  -  Quit Finding "
  175.           SELECT 1,  1, 1,             ;PUT CURSOR IN A SAFE PLACE
  176.           SELECT 1,  1, 3, S           ;SEARCH
  177.           SELECT 1,  4, 3, E           ;END
  178.           SELECT 1,  7, 3, B           ;BEGINNING
  179.           SELECT 1, 10, 3, N           ;NEXT
  180.           SELECT 1, 13, 3, P           ;PREVIOUS
  181.           SELECT 1, 16, 3, R           ;RECORD No.
  182.           SELECT 1, 19, 3, PLUS        ;BROWSE UP
  183.           SELECT 1, 22, 3, DASH        ;BROWSE DOWN
  184.           SELECT 1, 25, 14, Q          ;QUIT FINDING
  185.           PEND
  186. ;--UTILITY MENU--
  187. UTILITY: MENU , 5, 11, 14   ;LINE COLUMN COLOR
  188.           OPTION  "C", C               ;CLONE
  189.           OPTION  "D", D               ;DUPLICATE RECORDS
  190.           OPTION  "E", E               ;EXPORT
  191.           OPTION  "G", G               ;GLOBAL OPERATIONS
  192.           OPTION  "I", I               ;IMPORT
  193.           OPTION  "M", M               ;MAINTENANCE
  194.           OPTION  "N", N               ;NAME OF FIELD
  195.           OPTION  "P", P               ;PROFILE
  196.           OPTION  "S", S               ;SMART KEYS
  197.           OPTION  "U", U               ;UN-DELETE
  198.           OPTION
  199.           OPTION  "Q", Q               ;QUIT UTILITIES
  200.           MEND
  201. ;--NAME MASK ETC MENU--
  202. NAMASK: POPUP 11, 24, 14      ;LINE COLUMN COLOR
  203.     TEXT " (N)Name (M)Mask (K)Constant or (C)Calcs  "
  204.           SELECT 1, 1,  9,  N          ;NAME
  205.           SELECT 1, 9,  9,  M          ;MASK
  206.           SELECT 1, 17, 13, K          ;CONSTANT
  207.           SELECT 1, 32, 10, C          ;CALCS
  208.           PEND
  209. ;--SMART KEY MOD OPTION MENU--
  210. SKMOD: POPUP  17, 26, 14  ;LINE COLUMN COLOR
  211.     TEXT "  EDIT  LOAD  SAVE  QUIT   "
  212.           SELECT 1,  2,  6, E          ;EDIT
  213.           SELECT 1,  8,  6, L          ;LOAD
  214.           SELECT 1, 14,  6, S          ;SAVE
  215.           SELECT 1, 20,  6, QUIT       ;QUIT
  216.           PEND
  217. ;--SMARTKEY EXECUTE & EDIT MENU--
  218. SKEY: MENU , 2, 1, 14   ;LINE COLUMN COLOR
  219.           OPTION  "ALT1",  ALT1     ;NOTE: THERE ARE ONLY 21 OPTIONS
  220.           OPTION  "ALT2",  ALT2     ;      ON THIS MENU BECAUSE THAT
  221.           OPTION  "ALT3",  ALT3     ;      IS ALL THAT LOGITECH ALLOWS!
  222.           OPTION  "ALT4",  ALT4     ;      AINT THAT A BITCH?
  223.           OPTION  "ALT5",  ALT5
  224.           OPTION  "ALT6",  ALT6
  225.           OPTION  "ALT7",  ALT7
  226.           OPTION  "ALT8",  ALT8
  227.           OPTION  "ALT9",  ALT9
  228.           OPTION  "ALT0",  ALT0
  229.           OPTION  "ALT-",  ALTDSH
  230.           OPTION  "ALT=",  ALTEQU
  231.           OPTION  "ALTF1", ALTF1
  232.           OPTION  "ALTF2", ALTF2
  233.           OPTION  "ALTF3", ALTF3
  234.           OPTION  "ALTF4", ALTF4
  235.           OPTION  "ALTF5", ALTF5
  236.           OPTION  "ALTF6", ALTF6
  237.           OPTION  "ALTF7", ALTF7
  238.           OPTION  "ALTF8", ALTF8
  239.           OPTION  "ALTF9", ALTF9
  240.           MEND
  241. ;--REPORT1 MENU--
  242. REPORT1: MENU , 4, 13, 14   ;LINE COLUMN COLOR
  243.           OPTION  "Page format", P
  244.           OPTION
  245.           OPTION
  246.           OPTION  "Row format", R
  247.           OPTION
  248.           OPTION
  249.           OPTION  "Free form", F
  250.           OPTION
  251.           OPTION
  252.           OPTION
  253.           OPTION  "Commands", C
  254.           OPTION
  255.           OPTION
  256.           OPTION  "MAIN MENU", QUIT
  257.           MEND
  258. ;--REPORT2 MENU--
  259. REPORT2: POPUP  1, 22, 14  ;LINE COLUMN COLOR
  260.     TEXT " YES  NO  STOP ASKING or QUIT "
  261.           SELECT 1,  1, 5, Y           ;YES
  262.           SELECT 1,  6, 4, N           ;NO
  263.           SELECT 1, 10,13, X           ;STOP ASKING
  264.           SELECT 1, 25, 6, Q           ;QUIT
  265.           PEND
  266. ;--REPORT3 MENU--
  267. REPORT3: POPUP  16, 26, 14  ;LINE COLUMN COLOR
  268.     TEXT " E(Edit) or C(Create) "
  269.           SELECT 1,  1,  9, E          ;EDIT
  270.           SELECT 1, 12, 11, C          ;CREATE
  271.           PEND
  272. ;--EXPORT1 MENU--
  273. EXPORT1: MENU , 6, 9, 14    ;LINE COLUMN COLOR
  274.           OPTION  "  B", B             ;DBASE
  275.           OPTION  "  C", C             ;PC-CALC
  276.           OPTION  "  D", D             ;DIF
  277.           OPTION  "  F", F             ;FIXED LENGTH
  278.           OPTION  "  L", L             ;LOTUS
  279.           OPTION  "  M", M             ;MAIL MERGE
  280.           OPTION  "  P", P             ;PEACHTEXT
  281.           OPTION  "  S", S             ;SYLK
  282.           OPTION  "  T", T             ;TEXT EDITOR
  283.           OPTION  "  U", U             ;USER DEFINED
  284.           OPTION  "  V", V             ;VISICALC
  285.           OPTION  "  W", W             ;WORD PERFECT
  286.           OPTION  "  X", X             ;COMPRESSED
  287.           OPTION  "QUIT", BACK         ;BACK TO UTILITY MENU
  288.           MEND
  289.  
  290. ;--EXPORT2 FIELDS A/S MENU--
  291. EXPORT2: POPUP  12, 55, 14  ;LINE COLUMN COLOR
  292.       TEXT " A  S "
  293.           SELECT 1,  1,  3, A          ;ALL
  294.           SELECT 1,  4,  3, S          ;SELECTED
  295.           PEND
  296. ;--EXPORT3 RECORDS A/S MENU--
  297. EXPORT3: POPUP  12, 57, 14  ;LINE COLUMN COLOR
  298.             TEXT " A  S "
  299.           SELECT 1,  1,  3, A          ;ALL
  300.           SELECT 1,  4,  3, S          ;SELECTED
  301.           PEND
  302. ;--IMPORT MENU--
  303. IMPORT: MENU , 5, 9, 14    ;LINE COLUMN COLOR
  304.           OPTION  "  B", B             ;DBASE
  305.           OPTION  "  C", C             ;PC-CALC
  306.           OPTION  "  D", D             ;DIF
  307.           OPTION  "  F", F             ;FIXED LENGTH
  308.           OPTION  "  M", M             ;MAIL MERGE
  309.           OPTION  "  P", P             ;PEACHTEXT
  310.           OPTION  "  T", T             ;TEXT EDITOR
  311.           OPTION  "  U", U             ;USER DEFINED
  312.           OPTION  "  W", W             ;WORD PERFECT
  313.           OPTION  "  X", X             ;COMPRESSED
  314.           OPTION  "QUIT", BACK         ;BACK TO UTILITY MENU
  315.           MEND
  316. ;--MAINTENANCE MENU No.1--
  317. MAINT1: POPUP  12, 27, 14  ;LINE COLUMN COLOR
  318.     TEXT " Copy, Delete, Rename,   QUIT   "
  319.           SELECT 1,  1, 6, C          ;COPY
  320.           SELECT 1,  7, 8, D          ;DELETE
  321.           SELECT 1, 15, 8, R          ;RENAME
  322.           SELECT 1, 25, 6, QUIT       ;QUIT
  323.           PEND
  324. ;--MAINTENANCE MENU No.2--
  325. MAINT2: MENU , 5, 19, 14   ;LINE COLUMN COLOR
  326.           OPTION  "D", D               ;DATABASES
  327.           OPTION  "L", E               ;LETTER FILE
  328.           OPTION  "P", P               ;PROFILE
  329.           OPTION  "R", R               ;REPORT
  330.           OPTION  "S", S               ;SMART KEYS
  331.           OPTION  "Q", QUIT            ;QUIT
  332.           MEND
  333. ;--SEARCH MENU--
  334. SEARCH: POPUP  17, 13, 14  ;LINE COLUMN COLOR
  335.     TEXT " S(Simple search)  C(Complex search)  Q(Quit) "
  336.           SELECT 1,  1, 18, S          ;SIMPLE
  337.           SELECT 1, 19, 19, C          ;COMPLEX
  338.           SELECT 1, 38,  9, Q          ;QUIT
  339.           PEND
  340. ;--PROFILE1 MENU--
  341. PROFILE1: POPUP  17, 23, 14  ;LINE COLUMN COLOR
  342.     TEXT " Create   Edit   Load   QUIT "
  343.           SELECT 1,  1,  8, C          ;CREATE
  344.           SELECT 1, 10,  6, E          ;EDIT
  345.           SELECT 1, 17,  6, L          ;LOAD
  346.           SELECT 1, 24,  6, QUIT       ;QUIT
  347.           PEND
  348.  
  349. ;--PROFILE2 MENU-PRINTER SETUP--
  350. PROFILE2: MENU , 6, 14, 14   ;LINE COLUMN COLOR
  351.           OPTION  "C.", C               ;C. INTO
  352.           OPTION  "D.", D               ;DIABLO
  353.           OPTION  "H.", H               ;HP
  354.           OPTION  "I.", I               ;IBM
  355.           OPTION  "O.", O               ;OKIDATA
  356.           OPTION  "R.", R               ;R.S.
  357.           OPTION  "T.", T               ;TOSHIBA
  358.           OPTION                        ;
  359.           OPTION  "0.", ZERO            ;DO NOT SEND
  360.           OPTION  "1.", ONE             ;REMOVE
  361.           OPTION  "2.", TWO             ;ENTER YOUR CODES
  362.           MEND
  363. ;--PROFILE3 MENU-SAVE YNQ--
  364. PROFILE3: POPUP  12, 58, 14  ;LINE COLUMN COLOR
  365.     TEXT " Y  N  Q  "
  366.           SELECT 1,  1, 3, Y           ;YES
  367.           SELECT 1,  4, 3, N           ;NO
  368.           SELECT 1,  7, 3, Q           ;QUIT
  369.           PEND
  370. ;--GRAPH1 MENU--
  371. GRAPH1: POPUP  22, 34, 14  ;LINE COLUMN COLOR
  372.     TEXT "  ONE    MANY    QUIT  "
  373.           SELECT 1,  1,  7, O          ;ONE FIELD
  374.           SELECT 1,  8,  8, M          ;MANY FIELDS
  375.           SELECT 1, 16,  8, QUIT       ;QUIT
  376.           PEND
  377. ;--GRAPH2 MENU--
  378. GRAPH2: MENU , 9, 25, 14   ;LINE COLUMN COLOR
  379.           OPTION  "V", V               ;VERTICAL
  380.           OPTION  "H", H               ;HORIZONTAL
  381.           OPTION  "P", P               ;PIE
  382.           OPTION  "L", L               ;LINE
  383.           OPTION  "S", S               ;SCATTER
  384.           OPTION  "Q", QUIT            ;QUIT
  385.           MEND
  386. ;--GRAPH3 MENU--
  387. GRAPH3: POPUP  1, 22, 14  ;LINE COLUMN COLOR
  388.     TEXT " YES  NO  STOP ASKING or QUIT "
  389.           SELECT 1,  1, 5, Y           ;YES
  390.           SELECT 1,  6, 4, N           ;NO
  391.           SELECT 1, 10,13, X           ;STOP ASKING
  392.           SELECT 1, 25, 6, Q           ;QUIT
  393.           PEND
  394. ;--GRAPH4 SAVE FORMAT Y/N MENU--
  395. GRAPH4: POPUP  11, 54, 14  ;LINE COLUMN COLOR
  396.     TEXT " N  Y "
  397.           SELECT 1,  1,  3, N          ;NO
  398.           SELECT 1,  4,  3, Y          ;YES
  399.           PEND
  400. ;--DEFINE DATABASE MENU--
  401. DEFINE: POPUP  20, 30, 14  ;LINE COLUMN COLOR
  402.     TEXT " FAST  PAINT  QUIT "
  403.           SELECT 1,  1,  6, F          ;FAST
  404.           SELECT 1,  7,  7, P          ;PAINT
  405.           SELECT 1, 14,  6, QUIT       ;QUIT
  406.           PEND
  407. ;--DELETE Y/N MENU--
  408. DELETE: POPUP  12, 42, 14  ;LINE COLUMN COLOR
  409.     TEXT " N  Y "
  410.           SELECT 1,  1,  3, N          ;NO
  411.           SELECT 1,  4,  3, Y          ;YES
  412.           PEND
  413. ;--INCLUDE A/S MENU--
  414. INCLUDE: POPUP  11, 50, 14  ;LINE COLUMN COLOR
  415.     TEXT " A  S "
  416.           SELECT 1,  1,  3, A          ;ALL
  417.           SELECT 1,  4,  3, S          ;SELECTED
  418.           PEND
  419. ;--GLOBAL MOD/DEL MENU--
  420. GLOBAL1: POPUP  24, 47, 14  ;LINE COLUMN COLOR
  421.     TEXT " M  D "
  422.           SELECT 1,  1,  3, M          ;MODIFY
  423.           SELECT 1,  4,  3, D          ;DELETE
  424.           PEND
  425. ;--GLOBAL SELECT MENU--
  426. GLOBAL2: POPUP  24, 48, 14  ;LINE COLUMN COLOR
  427.     TEXT " S  A "
  428.           SELECT 1,  1,  3, S          ;SELECTED
  429.           SELECT 1,  4,  3, A          ;ALL
  430.           PEND
  431. ;--MAIN LABEL MENU--
  432. LABEL: MENU ,10, 16, 14   ;LINE COLUMN COLOR
  433.           OPTION  "F1",   F1
  434.           OPTION  "F2",   F2
  435.           OPTION  "F3",   F3
  436.           OPTION  "F4",   F4
  437.           OPTION  "F5",   F5
  438.           OPTION  "F6",   F6
  439.           OPTION  "F7",   F7
  440.           OPTION  "F8",   F8
  441.           OPTION  "F9",   F9
  442.           OPTION  "F10",  F10
  443.           MEND
  444. ;***** LABEL ASSIGNMENTS *****
  445. A:  TYPE "A"
  446. B:  TYPE "B"
  447. C:  TYPE "C"
  448. D:  TYPE "D"
  449. E:  TYPE "E"
  450. F:  TYPE "F"
  451. G:  TYPE "G"
  452. H:  TYPE "H"
  453. I:  TYPE "I"
  454. K:  TYPE "K"
  455. L:  TYPE "L"
  456. M:  TYPE "M"
  457. N:  TYPE "N"
  458. O:  TYPE "O"
  459. P:  TYPE "P"
  460. Q:  TYPE "Q"
  461. R:  TYPE "R"
  462. S:  TYPE "S"
  463. T:  TYPE "T"
  464. U:  TYPE "U"
  465. V:  TYPE "V"
  466. W:  TYPE "W"
  467. X:  TYPE "X"
  468. Y:  TYPE "Y"
  469. DASH:    TYPE "-"
  470. PLUS:    TYPE "+"
  471. ZERO:    TYPE "0"
  472. ONE:     TYPE "1"
  473. TWO:     TYPE "2"
  474. F1:      TYPE 0,59
  475. F2:      TYPE 0,60
  476. F3:      TYPE 0,61
  477. F4:      TYPE 0,62
  478. F5:      TYPE 0,63
  479. F6:      TYPE 0,64
  480. F7:      TYPE 0,65
  481. F8:      TYPE 0,66
  482. F9:      TYPE 0,67
  483. F10:     TYPE 0,68
  484. ALT1:    TYPE 0,120
  485. ALT2:    TYPE 0,121
  486. ALT3:    TYPE 0,122
  487. ALT4:    TYPE 0,123
  488. ALT5:    TYPE 0,124
  489. ALT6:    TYPE 0,125
  490. ALT7:    TYPE 0,126
  491. ALT8:    TYPE 0,127
  492. ALT9:    TYPE 0,128
  493. ALT0:    TYPE 0,129
  494. ALTF1:   TYPE 0,104
  495. ALTF2:   TYPE 0,105
  496. ALTF3:   TYPE 0,106
  497. ALTF4:   TYPE 0,107
  498. ALTF5:   TYPE 0,108
  499. ALTF6:   TYPE 0,109
  500. ALTF7:   TYPE 0,110
  501. ALTF8:   TYPE 0,111
  502. ALTF9:   TYPE 0,112
  503. ALTDSH:  TYPE 0,130
  504. ALTEQU:  TYPE 0,131
  505. QUIT:    TYPE ESC
  506. BACK:    TYPE ESC, ESC
  507. DOS:     TYPE 0,32   ;DOS COMMAND
  508. LRN:     TYPE 0,21   ;LEARN SMARTKEYS
  509. ALTC:    TYPE 0,46   ;CALCULATOR
  510. ALTH:    TYPE 0,35   ;HELP
  511. NOTHING: NOTHING
  512. CLS:     TYPE "CLS",ENTER
  513. END:     EXECUTE Q,CLS,
  514. ;Is this great, or what?
  515.